home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / music / maxpak.zip / MIDIEX.PR_ / MIDIEX.PR
Text File  |  1992-11-30  |  2KB  |  84 lines
  1. PROFILE FILE
  2. *    MIDIEX Bulk dump profile
  3. *
  4. BRAND "Big Noise"
  5. INSTRUMENT "MIDIEX"
  6. KIND PATCH
  7. FILEEXT "MDX"
  8. SIZE 128002
  9. MIDI 1
  10. *
  11. * Start of the MACRO to use for transmitting the DATA
  12. *
  13. TRANSMIT
  14.     YESNO V1,  " Are You Ready to Send the Data? "
  15.     IFQUIT V1, 0
  16.     IFQUIT 0, TOTALREC
  17.     MESSAGE SHOW "Sending Data ..."
  18.     VINIT V2, 0
  19.     LOOP TOTALREC
  20.         BGET V1, V2
  21.         SEND 1, V1
  22.         VADD V2, V2, 1
  23.     ENDLOOP
  24.     TELL " Finished! "
  25. ENDMACRO
  26. *
  27. * Start of the MACRO to use for Receiving the DATA
  28. *
  29. RECEIVE
  30.     YESNO V0,  " Are You Ready ? "
  31.     IFQUIT V0, 0
  32.     CLEAR ALL
  33.     MESSAGE SHOW "Waiting for Start of Exclusive Byte"
  34.     GET 1, HF0, WAIT
  35.     BSET HF0, 0
  36.     MESSAGE SHOW "Getting SYSEX Data ... Press Cancel when Done"
  37.     RDATA 0, 127999, 1, V
  38. ENDMACRO
  39. *
  40. * Start of the MACRO to use in saving the DATA to disk.
  41. *
  42. DISKSAVE
  43.     IFQUIT TOTALREC, 0
  44.     DOPEN W, "MDX"
  45.     MESSAGE SHOW "Saving Data ..."
  46.         DWRITE TOTALREC, 0
  47.     DCLOSE
  48. ENDMACRO
  49. *
  50. * Start of the MACRO to use for Loading the DATA from disk
  51. *
  52. DISKLOAD
  53.     CLEAR ALL
  54.     DOPEN R, "MDX"
  55.     MESSAGE SHOW "Loading Data ..."
  56.         DREAD TOTALREC, 0, V
  57.     DCLOSE
  58. ENDMACRO
  59. VIEW
  60.     PATCH TITLE "Bulk Dump"
  61.     PATCH OFFSET 0
  62.     PATCH LENGTH 128000
  63.     PATCH NUMBER 1
  64.     NAME OFFSET -1
  65.     NAME LENGTH -1
  66.     NAME XFORM 0
  67. *
  68. * Start of the MACRO to use in sending a single Patch.
  69. *
  70.     TRANSMIT
  71.         TELL "Use Bank Load to Send"
  72.     ENDMACRO
  73. *
  74. * Start of the MACRO to use in getting a single Patch.
  75. *
  76.     RECEIVE
  77.         CLEAR ALL
  78.         TELL "Use Get Bank to Receive"
  79.     ENDMACRO
  80. VIEWEND
  81. *
  82. *End of Profile
  83. *
  84.